unit uTimerList;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, RzPanel;

type
  TTimerList = class(TForm)
    Panel1: TPanel;
    btn_Refresh: TBitBtn;
    btn_Exit: TBitBtn;
    RzGroupBox1: TGroupBox;
    mmo_AutoXjTime: TMemo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_RefreshClick(Sender: TObject);
    procedure btn_ExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TimerList: TTimerList;

implementation
uses uJfglAdminMaint;

{$R *.dfm}

procedure TTimerList.btn_ExitClick(Sender: TObject);
begin
  Close;
end;

procedure TTimerList.btn_RefreshClick(Sender: TObject);
var
  vobj :TJfglAdminMaint;
  (*skList,xkList,*)xjList:TStrings;
begin
  vobj := TJfglAdminMaint.Create;
  //skList := TStringList.Create;
  //xkList := TStringList.Create;
  xjList := TStringList.Create;
  try
    //vobj.Get_Sk_Xk_List(skList,xkList);
    vobj.Get_Xj_Timer_List(xjList);

    //mmo_SkTime.Lines.Clear;
    //mmo_SkTime.Lines.AddStrings(skList);

    //mmo_XkTime.Lines.Clear;
    //mmo_XkTime.Lines.AddStrings(xkList);

    mmo_AutoXjTime.Lines.Clear;
    mmo_AutoXjTime.Lines.AddStrings(xjList);
  finally
    //FreeAndNil(skList);
    //FreeAndNil(xkList);
    FreeAndNil(xjList);
    FreeAndNil(vobj);
  end;
end;

procedure TTimerList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TTimerList.FormCreate(Sender: TObject);
begin
  btn_RefreshClick(Self);
end;

end.
